home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / LISP04.ARJ / BALLOON.LSP next >
Text File  |  1989-05-07  |  860b  |  30 lines
  1. (Vmon)  ;Virtual Memory On 
  2. ; 
  3. ;   13.  Part identifier (balloonc) 
  4.  
  5. ;13.  Draws part identifier - a balloon containing a  
  6. ;     number, then a leader to the object. 
  7. (Defun C:Balloonc (/ P1 P2 P3 P4 A) 
  8.        (Setq DS (Getreal "\nEnter the Dimscale: ")) 
  9.        (Setvar "Cmdecho" 0) 
  10.        (Setq P1 (Getpoint "\nFrom point: ")) 
  11.        (Setq P2 (Getpoint "\nTo point: ")) 
  12.        (If (<= (Car P2) (Car P1)) 
  13.            (Setq A (* -0.25 DS)) (Setq A (* 0.25 DS)) 
  14.        ) 
  15.        (Setq P3 (List (+ (Car P2) A) (Cadr P2))) 
  16.        (Setq P4 (List (+ (Car P3)(/ A 2)) (Cadr P3))) 
  17.        (Command "Layer" "S" "4" "") 
  18.        (Command "Dim1" "Leader" P1 P2 P3 "" "") 
  19.        (Setq A "Cballoon") 
  20.        (Command "Insert" A P4 DS "" "0") 
  21. ) 
  22.  
  23.  
  24. ;19. Error. 
  25. (Defun *error* (st) 
  26.   (Princ "Error: ") 
  27.   (Princ st) 
  28.   (Terpri)) 
  29.  
  30.